/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / System 7 / Frontier / RecursiveList 1.0.sit / recursiveList ƒ / recursiveList.rsrc / scpt_128

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 01 04 7c 00 02 00 00 | 01 7a 00 00 08 87 00 0f |...|....|.z......|
|00000010| 02 00 00 0f 06 47 65 6e | 65 76 61 00 00 00 00 00 |.....Gen|eva.....|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 07 20 00 00 a6 15 | ab e0 aa a9 a0 9e 00 00 |... ....|........|
|00000050| 00 69 00 00 00 29 00 61 | 01 dd 02 66 4c 41 4e 44 |.i...).a|...fLAND|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 72 65 63 75 |........|....recu|
|00000080| 72 73 69 76 65 4c 69 73 | 74 20 44 72 6f 70 6c 65 |rsiveLis|t Drople|
|00000090| 74 0d 56 65 72 73 69 6f | 6e 20 31 2e 30 2c 20 43 |t.Versio|n 1.0, C|
|000000a0| 6f 70 79 72 69 67 68 74 | 20 a9 31 39 39 34 2c 20 |opyright| .1994, |
|000000b0| 4a 2e 20 43 69 63 69 6e | 65 6c 6c 69 2e 20 20 41 |J. Cicin|elli.  A|
|000000c0| 6c 6c 20 52 69 67 68 74 | 73 20 52 65 73 65 72 76 |ll Right|s Reserv|
|000000d0| 65 64 2e 0d 09 53 61 74 | 2c 20 53 65 70 20 32 34 |ed...Sat|, Sep 24|
|000000e0| 2c 20 31 39 39 34 20 61 | 74 20 39 3a 31 38 3a 32 |, 1994 a|t 9:18:2|
|000000f0| 36 20 41 4d 20 62 79 20 | 4a 47 43 0d 09 43 72 65 |6 AM by |JGC..Cre|
|00000100| 61 74 65 73 20 61 20 66 | 69 6c 65 20 63 6f 6e 74 |ates a f|ile cont|
|00000110| 61 69 6e 69 6e 67 20 61 | 20 6c 69 73 74 20 6f 66 |aining a| list of|
|00000120| 20 66 69 6c 65 20 70 61 | 74 68 73 20 69 6e 73 69 | file pa|ths insi|
|00000130| 64 65 20 77 68 61 74 65 | 76 65 72 20 69 73 20 64 |de whate|ver is d|
|00000140| 72 6f 70 70 65 64 0d 09 | 6f 6e 20 69 74 2e 20 20 |ropped..|on it.  |
|00000150| 49 66 20 61 20 73 69 6e | 67 6c 65 20 66 69 6c 65 |If a sin|gle file|
|00000160| 20 69 73 20 64 72 6f 70 | 70 65 64 20 6f 6e 20 69 | is drop|ped on i|
|00000170| 74 2c 20 69 74 73 20 70 | 61 74 68 20 69 73 20 63 |t, its p|ath is c|
|00000180| 6f 70 69 65 64 20 74 6f | 20 74 68 65 20 63 6c 69 |opied to| the cli|
|00000190| 70 62 6f 61 72 64 2e 0d | 09 49 66 20 74 68 65 20 |pboard..|.If the |
|000001a0| 53 48 49 46 54 20 6b 65 | 79 20 69 73 20 68 65 6c |SHIFT ke|y is hel|
|000001b0| 64 20 64 6f 77 6e 20 64 | 75 72 69 6e 67 20 74 68 |d down d|uring th|
|000001c0| 65 20 64 72 6f 70 2c 20 | 6f 6e 6c 79 20 74 68 65 |e drop, |only the|
|000001d0| 20 66 6f 6c 64 65 72 73 | 20 66 69 72 73 74 0d 09 | folders| first..|
|000001e0| 6c 65 76 65 6c 20 63 6f | 6e 74 65 6e 74 73 20 77 |level co|ntents w|
|000001f0| 69 6c 6c 20 62 65 20 72 | 65 70 6f 72 74 65 64 2e |ill be r|eported.|
|00000200| 20 20 49 66 20 74 68 65 | 20 66 69 6c 65 20 6f 72 |  If the| file or|
|00000210| 20 66 6f 6c 64 65 72 20 | 72 65 73 69 64 65 73 20 | folder |resides |
|00000220| 6f 6e 20 61 20 0d 09 72 | 65 61 64 2d 6f 6e 6c 79 |on a ..r|ead-only|
|00000230| 20 64 65 76 69 63 65 20 | 73 75 63 68 20 61 73 20 | device |such as |
|00000240| 61 20 43 44 2c 20 74 68 | 65 20 66 69 6c 65 20 63 |a CD, th|e file c|
|00000250| 72 65 61 74 65 64 20 77 | 69 6c 6c 20 62 65 20 70 |reated w|ill be p|
|00000260| 6c 61 63 65 64 20 6f 6e | 20 74 68 65 20 0d 09 53 |laced on| the ..S|
|00000270| 74 61 72 74 75 70 20 44 | 69 73 6b 2e 0d 0d 62 75 |tartup D|isk...bu|
|00000280| 6e 64 6c 65 20 c7 73 65 | 74 20 75 70 20 66 6f 72 |ndle .se|t up for|
|00000290| 20 74 65 73 74 69 6e 67 | 0d 09 73 79 73 74 65 6d | testing|..system|
|000002a0| 2e 64 72 6f 70 6c 65 74 | 2e 73 74 61 72 74 75 70 |.droplet|.startup|
|000002b0| 20 3d 20 74 72 75 65 0d | 09 73 79 73 74 65 6d 2e | = true.|.system.|
|000002c0| 64 72 6f 70 6c 65 74 2e | 63 6c 6f 73 65 64 6f 77 |droplet.|closedow|
|000002d0| 6e 20 3d 20 66 61 6c 73 | 65 0d 09 73 79 73 74 65 |n = fals|e..syste|
|000002e0| 6d 2e 64 72 6f 70 6c 65 | 74 2e 61 70 70 50 61 74 |m.drople|t.appPat|
|000002f0| 68 20 3d 20 22 48 44 38 | 30 3a 44 65 73 6b 74 6f |h = "HD8|0:Deskto|
|00000300| 70 20 46 6f 6c 64 65 72 | 3a 63 6f 70 79 43 61 74 |p Folder|:copyCat|
|00000310| 22 0d 09 73 79 73 74 65 | 6d 2e 64 72 6f 70 6c 65 |"..syste|m.drople|
|00000320| 74 2e 70 61 74 68 20 3d | 20 22 4d 61 63 69 6e 74 |t.path =| "Macint|
|00000330| 6f 73 68 20 48 44 3a 22 | 0d 0d 6c 6f 63 61 6c 20 |osh HD:"|..local |
|00000340| c7 20 4c 6f 63 61 6c 20 | 76 61 72 69 61 62 6c 65 |. Local |variable|
|00000350| 20 64 65 63 6c 61 72 61 | 74 69 6f 6e 73 2e 0d 09 | declara|tions...|
|00000360| 6c 6f 67 46 69 6c 65 20 | 3d 20 66 69 6c 65 2e 67 |logFile |= file.g|
|00000370| 65 74 53 79 73 74 65 6d | 44 69 73 6b 20 28 29 20 |etSystem|Disk () |
|00000380| 2b 20 22 44 65 73 6b 74 | 6f 70 20 46 6f 6c 64 65 |+ "Deskt|op Folde|
|00000390| 72 3a 72 65 63 75 72 73 | 69 76 65 4c 69 73 74 20 |r:recurs|iveList |
|000003a0| 46 69 6c 65 20 4c 69 73 | 74 69 6e 67 22 0d 09 6c |File Lis|ting"..l|
|000003b0| 6f 67 4c 65 76 65 6c 20 | 3d 20 69 6e 66 69 6e 69 |ogLevel |= infini|
|000003c0| 74 79 0d 09 66 6f 6c 64 | 65 72 4e 61 6d 65 20 3d |ty..fold|erName =|
|000003d0| 20 22 22 0d 09 62 61 6e | 6e 65 72 54 65 78 74 20 | ""..ban|nerText |
|000003e0| 3d 20 63 72 20 2b 20 22 | 72 65 63 75 72 73 69 76 |= cr + "|recursiv|
|000003f0| 65 4c 69 73 74 20 46 72 | 6f 6e 74 69 65 72 20 44 |eList Fr|ontier D|
|00000400| 72 6f 70 6c 65 74 22 0d | 62 61 6e 6e 65 72 54 65 |roplet".|bannerTe|
|00000410| 78 74 20 3d 20 62 61 6e | 6e 65 72 54 65 78 74 20 |xt = ban|nerText |
|00000420| 2b 20 63 72 20 2b 20 22 | 56 65 72 73 69 6f 6e 20 |+ cr + "|Version |
|00000430| 31 2e 30 2c 20 43 6f 70 | 79 72 69 67 68 74 20 a9 |1.0, Cop|yright .|
|00000440| 31 39 39 34 2c 20 4a 2e | 20 43 69 63 69 6e 65 6c |1994, J.| Cicinel|
|00000450| 6c 69 2e 20 41 6c 6c 20 | 52 69 67 68 74 73 20 52 |li. All |Rights R|
|00000460| 65 73 65 72 76 65 64 2e | 22 20 2b 20 63 72 0d 0d |eserved.|" + cr..|
|00000470| 69 66 20 73 79 73 74 65 | 6d 2e 64 72 6f 70 6c 65 |if syste|m.drople|
|00000480| 74 2e 63 6c 6f 73 65 64 | 6f 77 6e 0d 09 66 69 6c |t.closed|own..fil|
|00000490| 65 2e 63 6c 6f 73 65 20 | 28 6c 6f 67 46 69 6c 65 |e.close |(logFile|
|000004a0| 29 0d 09 6d 73 67 20 28 | 22 22 29 0d 09 46 69 6e |)..msg (|"")..Fin|
|000004b0| 64 65 72 2e 62 72 69 6e | 67 54 6f 46 72 6f 6e 74 |der.brin|gToFront|
|000004c0| 20 28 29 0d 09 72 65 74 | 75 72 6e 0d 0d 69 66 20 | ()..ret|urn..if |
|000004d0| 73 79 73 74 65 6d 2e 64 | 72 6f 70 6c 65 74 2e 73 |system.d|roplet.s|
|000004e0| 74 61 72 74 75 70 0d 09 | 69 66 20 6b 62 2e 73 68 |tartup..|if kb.sh|
|000004f0| 69 66 74 4b 65 79 20 28 | 29 20 c7 20 49 66 20 53 |iftKey (|) . If S|
|00000500| 48 49 46 54 20 6b 65 79 | 20 64 6f 77 6e 20 2c 20 |HIFT key| down , |
|00000510| 6c 6f 67 20 66 69 72 73 | 74 20 6c 65 76 65 6c 20 |log firs|t level |
|00000520| 6f 6e 6c 79 2e 0d 09 09 | 6c 6f 67 4c 65 76 65 6c |only....|logLevel|
|00000530| 20 3d 20 31 0d 0d 6f 6e | 20 72 65 63 75 72 73 65 | = 1..on| recurse|
|00000540| 44 69 72 65 63 74 6f 72 | 79 20 28 64 2c 20 6c 65 |Director|y (d, le|
|00000550| 76 65 6c 29 20 c7 20 72 | 65 63 75 72 73 65 20 66 |vel) . r|ecurse f|
|00000560| 6f 6c 64 65 72 20 61 6e | 64 20 77 72 69 74 65 20 |older an|d write |
|00000570| 66 69 6c 65 20 70 61 74 | 68 73 20 74 6f 20 6c 6f |file pat|hs to lo|
|00000580| 67 46 69 6c 65 0d 09 66 | 69 6c 65 6c 6f 6f 70 20 |gFile..f|ileloop |
|00000590| 28 66 20 69 6e 20 64 29 | 0d 09 09 69 66 20 6c 65 |(f in d)|...if le|
|000005a0| 76 65 6c 20 3e 20 31 20 | 61 6e 64 20 66 69 6c 65 |vel > 1 |and file|
|000005b0| 2e 69 73 46 6f 6c 64 65 | 72 20 28 66 29 0d 09 09 |.isFolde|r (f)...|
|000005c0| 09 72 65 63 75 72 73 65 | 44 69 72 65 63 74 6f 72 |.recurse|Director|
|000005d0| 79 20 28 66 2c 20 6c 65 | 76 65 6c 29 0d 09 09 6d |y (f, le|vel)...m|
|000005e0| 73 67 20 28 66 69 6c 65 | 2e 66 69 6c 65 46 72 6f |sg (file|.fileFro|
|000005f0| 6d 50 61 74 68 20 28 66 | 29 29 0d 09 09 66 69 6c |mPath (f|))...fil|
|00000600| 65 2e 77 72 69 74 65 4c | 69 6e 65 20 28 6c 6f 67 |e.writeL|ine (log|
|00000610| 46 69 6c 65 2c 20 66 29 | 0d 0d 6f 6e 20 72 65 63 |File, f)|..on rec|
|00000620| 75 72 73 69 76 65 4c 69 | 73 74 20 28 66 29 0d 09 |ursiveLi|st (f)..|
|00000630| 69 66 20 66 69 6c 65 2e | 69 73 41 6c 69 61 73 20 |if file.|isAlias |
|00000640| 28 66 29 0d 09 09 66 6f | 6c 64 65 72 4e 61 6d 65 |(f)...fo|lderName|
|00000650| 20 3d 20 66 69 6c 65 2e | 66 6f 6c 6c 6f 77 41 6c | = file.|followAl|
|00000660| 69 61 73 20 28 66 29 0d | 09 09 69 66 20 66 6f 6c |ias (f).|..if fol|
|00000670| 64 65 72 4e 61 6d 65 20 | 3d 3d 20 22 22 20 c7 20 |derName |== "" . |
|00000680| 41 6c 69 61 73 20 63 6f | 75 6c 64 20 6e 6f 74 20 |Alias co|uld not |
|00000690| 62 65 20 66 6f 75 6e 64 | 2c 20 65 78 69 74 20 67 |be found|, exit g|
|000006a0| 72 61 63 65 66 75 6c 6c | 79 2e 0d 09 09 09 64 69 |racefull|y.....di|
|000006b0| 61 6c 6f 67 2e 61 6c 65 | 72 74 20 28 22 41 6c 69 |alog.ale|rt ("Ali|
|000006c0| 61 73 65 64 20 69 74 65 | 6d 20 63 6f 75 6c 64 20 |ased ite|m could |
|000006d0| 6e 6f 74 20 62 65 20 66 | 6f 75 6e 64 21 22 29 0d |not be f|ound!").|
|000006e0| 09 09 09 46 69 6e 64 65 | 72 2e 62 72 69 6e 67 54 |...Finde|r.bringT|
|000006f0| 6f 46 72 6f 6e 74 20 28 | 29 0d 09 09 09 72 65 74 |oFront (|)....ret|
|00000700| 75 72 6e 0d 09 09 66 20 | 3d 20 66 6f 6c 64 65 72 |urn...f |= folder|
|00000710| 4e 61 6d 65 0d 09 69 66 | 20 66 69 6c 65 2e 69 73 |Name..if| file.is|
|00000720| 46 6f 6c 64 65 72 20 28 | 66 29 20 6f 72 20 66 69 |Folder (|f) or fi|
|00000730| 6c 65 2e 69 73 56 6f 6c | 75 6d 65 20 28 66 29 0d |le.isVol|ume (f).|
|00000740| 09 09 6d 73 67 20 28 22 | 47 65 6e 65 72 61 74 69 |..msg ("|Generati|
|00000750| 6e 67 20 46 69 6c 65 20 | 4c 69 73 74 69 6e 67 c9 |ng File |Listing.|
|00000760| 22 29 0d 09 09 69 66 20 | 6e 6f 74 20 66 69 6c 65 |")...if |not file|
|00000770| 2e 65 78 69 73 74 73 20 | 28 6c 6f 67 46 69 6c 65 |.exists |(logFile|
|00000780| 29 0d 09 09 09 66 69 6c | 65 2e 6e 65 77 20 28 6c |)....fil|e.new (l|
|00000790| 6f 67 46 69 6c 65 29 0d | 09 09 09 66 69 6c 65 2e |ogFile).|...file.|
|000007a0| 73 65 74 43 72 65 61 74 | 6f 72 20 28 6c 6f 67 46 |setCreat|or (logF|
|000007b0| 69 6c 65 2c 20 27 52 2a | 63 68 27 29 0d 09 09 09 |ile, 'R*|ch')....|
|000007c0| 66 69 6c 65 2e 73 65 74 | 54 79 70 65 20 28 6c 6f |file.set|Type (lo|
|000007d0| 67 46 69 6c 65 2c 20 27 | 54 45 58 54 27 29 0d 09 |gFile, '|TEXT')..|
|000007e0| 09 66 69 6c 65 2e 6f 70 | 65 6e 20 28 6c 6f 67 46 |.file.op|en (logF|
|000007f0| 69 6c 65 29 0d 09 09 66 | 69 6c 65 2e 77 72 69 74 |ile)...f|ile.writ|
|00000800| 65 4c 69 6e 65 20 28 6c | 6f 67 46 69 6c 65 2c 20 |eLine (l|ogFile, |
|00000810| 62 61 6e 6e 65 72 54 65 | 78 74 29 0d 09 09 72 65 |bannerTe|xt)...re|
|00000820| 63 75 72 73 65 44 69 72 | 65 63 74 6f 72 79 20 28 |curseDir|ectory (|
|00000830| 66 2c 20 6c 6f 67 4c 65 | 76 65 6c 29 0d 09 65 6c |f, logLe|vel)..el|
|00000840| 73 65 20 c7 20 44 72 6f | 70 70 65 64 20 69 74 65 |se . Dro|pped ite|
|00000850| 6d 20 6d 75 73 74 20 62 | 65 20 61 20 66 69 6c 65 |m must b|e a file|
|00000860| 2e 0d 09 09 6d 73 67 20 | 28 22 43 6f 70 79 69 6e |....msg |("Copyin|
|00000870| 67 20 66 69 6c 65 20 70 | 61 74 68 20 74 6f 20 63 |g file p|ath to c|
|00000880| 6c 69 70 62 6f 61 72 64 | 2e 22 29 0d 09 09 46 72 |lipboard|.")...Fr|
|00000890| 6f 6e 74 69 65 72 2e 62 | 72 69 6e 67 54 6f 46 72 |ontier.b|ringToFr|
|000008a0| 6f 6e 74 20 28 29 0d 09 | 09 63 6c 69 70 62 6f 61 |ont ()..|.clipboa|
|000008b0| 72 64 2e 70 75 74 56 61 | 6c 75 65 20 28 66 29 20 |rd.putVa|lue (f) |
|000008c0| c7 20 70 75 74 20 66 69 | 6c 65 20 70 61 74 68 20 |. put fi|le path |
|000008d0| 6f 6e 20 63 6c 69 70 62 | 6f 61 72 64 2e 0d 0d 72 |on clipb|oard...r|
|000008e0| 65 63 75 72 73 69 76 65 | 4c 69 73 74 20 28 73 79 |ecursive|List (sy|
|000008f0| 73 74 65 6d 2e 64 72 6f | 70 6c 65 74 2e 70 61 74 |stem.dro|plet.pat|
|00000900| 68 29 0d 84 00 00 00 00 | 00 84 00 00 00 00 00 04 |h)......|........|
|00000910| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000930| 00 00 00 00 00 00 00 00 | 00 80 00 00 00 00 00 84 |........|........|
|00000940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 80 00 00 |........|........|
|00000960| 00 00 00 80 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000980| 00 80 00 00 00 00 00 80 | 00 00 00 00 00 80 00 00 |........|........|
|00000990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009a0| 00 00 00 00 00 00 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|000009b0| 00 80 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009c0| 00 00 00 80 00 00 00 00 | 00 80 00 00 00 00 00 80 |........|........|
|000009d0| 00 00 00 00 00 80 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|000009e0| 00 80 00 00 00 00 00 80 | 00 00 00 00 00 80 00 00 |........|........|
|000009f0| 00 00 00 80 00 00 00 00 | 00 80 00 00 00 00 00 00 |........|........|
|00000a00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a20| 00 00 00 80 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a50| 00 00 00 00 00 00 00 00 | 00 80 00 00 00 00 00 00 |........|........|
|00000a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a70| 00 80 00 00 00 00 00 80 | 00 00 00 00 00          |........|.....   |
+--------+-------------------------+-------------------------+--------+--------+